(find-name-dired): Use shell-quote-argument.

diff --git a/lisp/find-dired.el b/lisp/find-dired.el
index d07c983c1dc496118defe8e83a6f452922dff163..4e86c792ab43c7d6da2be36ecb732787bfab8221 100644 (file)
--- a/lisp/find-dired.el
+++ b/lisp/find-dired.el
@@ -159,7 +159,7 @@ The command run (after changing into DIR) is
     find . -name 'PATTERN' -ls"
   (interactive
    "DFind-name (directory): \nsFind-name (filename wildcard): ")
-  (find-dired dir (concat "-name '" pattern "'")))
+  (find-dired dir (concat "-name '" (shell-quote-argument pattern) "'")))
 
 ;; This functionality suggested by
 ;; From: oblanc@watcgl.waterloo.edu (Olivier Blanc)